Server - Client 


ت إشراف الإستاذ 


٣ 
4 ر زلرں زرد‎ 
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إعداد طلاب نطم محلو مات إ انی فاي ]... 


مالك هادي اضما 


1 NES 


ہل الباری| 9 
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eT 


بسم الله الرحمن الرحيمالحم لله الذي خلق فعلّم وجَعَل بعد العسر يسرًا و جعل الصبر مفتاح 

الفرج والنجاح ثمرة الجد والعمل شعور متدفق وفرحة عارمة وبسمة مرسومة على كل الشفاه 
ودموع حارة ومشاعر تختلج الفؤاد وشعور بالنجاح والتميز ». ثم الصلاة والسلام والتمام للأشم 
۷ % » رسولنا محمد نبينا المسدد » ومن حذا لهديه أو التزم 


r 0 


نتقدم نحن مجموعة ط Group of youn ctors‏ { بتقدیم هذا العمل 


المتواضع إلى أستاذنا و أخونا المحتر 0 ر هارون عر الدين الدبعي ) .. 


و الشكر الخاص إلى كل من ساهم يإعانتا على إتمالل ج المشروع في لغة .16٤‏ ط۷ .. 
¥ 


محمد عبد الس السلا الحسشي . 0١‏ 


© جوانا عبدالرحمن الغاهدي . ل J‏ 


3 


8 


ونتمنى من الله سبحانه وتعالى أن يوفقنا ويوفق زملائنا و زميلاتنا للنجاح الدائم والتفوق 


حتى نتخرج ويكون لنا الفخر في خدمة هذا الوطن وخدمة أهله لما يحبه الله ويرضاه 
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Chat Server \ CIîfent 


وهو عباره عن برنامج مصمم باحدی لغات البرجحة وهي لغة vb.net‏ ( ویستخحدم هذا 
البرنامج ت بعملية إتصال بين أثنين مستخدمين هذا البرنامج والمستخدم الأول قد يكون هو المسئول 
أو العم وقبل البدء بعملية الإتصال للقيام باحادثة لابد أولاً من أيصال ر(كابل شبكة ) بين 


کمبیوتر وکمبیوتر 3 رقم الآيي لكمبيوتر العميل بنفس رقم الآيي لكمبيوتر المسئول »»» ويحتوي 


الواحهة الأولى : وهي الواجهة اکا : اسول 961€ 


الواحهة الثانية : وهي واحهة التأمين اا ع الا ا ا 


اللو ل 966 . 


۰ 


۵ 


الواحهة الرابعة : وهي نفس واحهة التأمين لدى المسئول 
١‏ 
ګرا زل ر رت 


يستطيع المستخدم هذا البرنامج أثناء عملية الحادثة بينه وبين المستخدم الآحر في حالة 


انشغاله بأن يقوم بتأمين البرنامج برقم سري وببقى البرنامج قيد التشغيل إلى أن يدحل 
المستخدم الرقم السري و يواصل الحادثة مع المستخدم الآحر . 
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Server 


الواجهة الأساسية للمستول 
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تحتوي الواجهة الاساشا للمسئول على محموعة من الأدوات »» و سنقوم بشرح هاذي 


الأدوات بالتفصيل 
¢ 
ب 


x0 


فتح المنفذ على الروتر : وهو ا CheckBox1‏ الوحودة فی قائمة ( ×0 01b‏ ەا ) 
وبعد الضغط علية يتم الضغط على Start e‏ . 
4 


ج اشفا اروتر ع 
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Start connection‏ : وهو عبارة عن 81)01 الموحودة في قائمة ( ×100150) عند 
الضغط علية تتم عملية الاتصال عبر رقم البورت ويظهر للمستخدم انه قد تم تشغيل المسئول 
بنجاح على العنوان ( عنوان الآيي للجهاز ) قي ۷٥ع‏ ۸)»] . 


تم تشقيل المسؤول بتجاح على العنوان ==4> 1۹۲.18۸.1.۳ 


” الحالة: في حالة استعاع 
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Ment p1‏ : وهي عبارة عن أداة الموحودة ني قائمة ( 100150( تحتوي محموعة من 


الخيارات التي يكتبها المصمم للبرنامج ويوحد لدينا في هذا الفورم بجحموعة من الخيارات وهي ( 


تأمين - أخحفاء - خروج ) . 


علي اروتر آم 
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txt Recv‏ : وهو عبارة عن e×80×‏ 1 الموحود قي قائمة ( ×100150) التي يظهر فيه 


الرسائل المرسلة من ال 5۲۷8 والواردة من ال 11آ . 


فح المنغذ على الروت ا Start connection‏ 


تم تشغيل المسشؤول بتحاح على العتوان =2 1.۳ .1۹۲,1 
تم اتصاك الحميل بتجاح => 1.۳ .1۹۲.71 

التتستييدلهة ..[[الستللامر يكم بر نة الله ب بركاحه ]] ٠.‏ 
العهيل: ..[[ وعليكم السلام ة رحمة الله ويركاته ]] .. 
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قح اسفذ دى الروتر #] 


0 


١ 


4 


١ txtSend‏ وهو عار ع ing TextBox‏ في قائمة (×0ط[هه]) التي يتم كتابة 


ارال فة : 


9ہ 
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[عالا 


ع المنغذ عي الررتر ا Start connection‏ 


TTA. ==‏ 
تم اتصال العميل بتجاح ك=>> 1,۳ ۹۲1 
المعمسسيولة ١:[[الساام‏ تليتيم ر عة الل ب برتانه E‏ 
العميل: ..[[ وعليكم السلام و رحفة الله وبركاته ]].. 


4û 


ى 


وهو عبارة عن 81001 الموحود ق قائ اا 


.(txtRecv) 


: 
Tempus Sahs ITC 
Times New Roman 
Traditional Arabic 
Trebuchet MS 


Effects 
[N Strkeoit 
[E] Underfine 
Color: 
SM Elack Senipt: 
Westem 


AaBbYyZz 
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فح العنغا علد الردتر ا Start tonnection‏ 


تم تشيل المسهول بتحاج على العتوان == ±± 1۹۳.118.1.۳ 
تم اتصال العمیل بتجاع => 1.۲ ,1۹۲.1714 


و - الحالة: العميل يشوم بالكنابة 


a 


0 


tt us5tr1p1‏ : وهو عبارة عن أداة الموحودة قي (Toolbfx ls‏ »> وکما موضح 

الشريط الذي يوحد أسفل الواحهة الرئيسية لا 6۴ Se‏ ایا یا) ف الإحداث الق يقوم بها 
٠ a ٠‏ 

العميل في ال ١٣ع‏ 5ا×ا أثناء الكتابة . 3Y‏ 


4 


e 
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ويتم الانتقال إلى شاشة التأمين عند الضغط على الخيار تأمين الموحود في قائمة الخيارات » ولا 


يستطیع 3 جص أحر الدحول إلى الواحهة الرئية Serv@F JÛ‏ إلا إذا قام بإدحال رقم 


ف 


سري صحیح کما SS‏ الانتقال إلى واحهة التأمين . 


فح اشفا اروت چ 
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۶ : وهو عبارة Labee‏ ) الموحود في قائمة )1٥0100×(‏ يستطيع الملصمم 


أن يکتب بداحلة أي نص يريده . 


0 


n This POF was created using Sonic PI POF Çreator. 
O remove h.coı 


is watermark, please license th 


Password 


Server Jl ra الذي‎ o وهو التکست الموج9‎ : 1" extB o> 
چ‎ 


بكتابة الرقم السري بداخله لكي يتم ر 


. Server Ji ی‎ 


! 


n This POF was created using Sonic PI POF Çreator. 
O remove لا ااا‎ 


is watermark, please license th 


Password 


0k‏ :وهو عبارة عن 51101 الموحود قي قائ e‏ يتم الضغط علية بعد كتابة 
الرقم السري داحل ال ×0 1۴×8 > وف حالة كتابة غير صحيح تظهر رسالة 
(عذراً لا يعكنك الدحول) »وقي حالة إدحال حروف تظهر ر ادحل البيانات بشكل 
صحیح ) » وی الخال رت سر مسح تطھر رالا ( مرا انر 
0 
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Client 


الواجهة الأساسية للعميل 


EN: اا‎ 


192.168.1.64۹ E I 


1 


o 


تحتوي الواجهة الأساسية للعميل على تكست عنوان الآيبي التي يتم كتابة الآيبي بداخل ا ن 
رقم الآيبي التي يكتب بداخلة نفس رقم الآيبي للمستول .. 
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أولاً : شرح أكواد الواجهة الأساسية للمسئول $٥۷٠٤‏ . 
الإعلان عن المكتبات . 


Imports System. Text 


تحتو جه 


K‏ الشرج 


en rex‏ هذه المكتبة بفك التشفير داحل الشبكة والتعامل مع البيانات 


.. ) 58۲1١4 ( النصية‎ 


۰ 
الإعلان عن المتغيرات ر الإحداث 70 إ( 


Public Class Forml 0 
Dim WithEven Asoc As BazSocket 
Dim WithEve AdceptSock As BazSocket 
Private Im ng As Boolean = False 


9 ا‎ As Boolean = False 


0٣ يع‎ 


تعريف حدث و o‏ 
يقوم بعملية الإتصال عبر المقبس ( الإستماع للإتصال ) ,+= MySock As BazSocket‏ 
يقوم بعملية الإتصال عبر المقبس ( إرسال الإتصاJ‏ ( AcceptSock As BazSocket—‏ 


ImWriting As Boolean = False + حاص بكتابة البيانات‎ 


ImSupp As Boolean = False ¬, حاص بكتابة البيانات‎ 
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القيام بعملية تهيئة للإتصال . 


rivate Sub Forml_lLoad (ByVal sender As System.Object, ByVal e A 
System.EventArgs) Handles MyBase. Load 


MySock = New BazSocket (Me) 
MySock.AlwaysRaiseClose = True 


ENG SUB 


MySock = New BazSocket (Me) 
MySock.AlwaysRaiseClose = 


ا ا زت والقيام بإتصال حديد » بعد الإنتهاء من الإتصال 
۷ 


اا 
. 


الكود الخاص بزر الإرسال ر dإ٣م$‏ ) . 


A 


If Accept e State = BazSocketState.Connected Then 
% ock.Send(txtSend. Text) 

(a ا‎ True) 
Send. Text = "™" 

TImWriting = False 

ImSupp = False 

LxtSend.Focus () 

ERY TE 

End Sub 
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الكود الخاص بال 1ط1إ٤5Sءuں٤ه٤5الشريط‏ الذي يوجد أسفل واجهة المسؤول . 


Private Sub ServerDataArrival (ByVal sender As Object, ByVal data() As 1 


Select Case Encoding.Unicode.GetString (data) 
Case "SWRITE" 

تفيل محتوم سالكتادة" 1lbStatusConn. Text‏ 

Casê "SSUPPR™ 

lbStatusConn. Text ححا"‎ SR العمل تف‎ 

Caê "FINSUPP™ 

lbStatusConn. Text وهل الا‎ 

Case Elsê 

lbStatusConn. Text = حتفل خالا‎ " 

AddChatMessage (Encoding.Unicode.GetStrin a), False) 


End Select % 


ENG Sub 


هذا الكود هو الكود الخاص بالشريط الذي يوحد 0 نووم الولحهة الأساسية للمسئول 
إerve‏ والشريط هذا عبارة عن أداه تسمي tusS)۲1p‏ 8 ضمن أدوات ×0 ا01٥۲‏ 
واستخدمناها هنا في هذا الفورم لتبين للمسئول 56٣۷۴۲‏ الإحداث EY‏ العميل 
۲ا ق الواجهة الأساسية له داحل ال kx4‏ أثناء عملية الكتابة 0 
4 
0 


6 


ر 
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الكود الخاص يإستقبال الإتصال من العميل ٤۸٥1آا€‏ . 


te Sub MySock_Accepted (ByVal sender As System.Object, ByVal Request As 
tRequest) Handles MySock.Accepted 


AcceptSock = New BazSocket (Me, Request) 
AcceptSock.AlwaysRaiseClose = True 
AddHandler AcceptSock.Closed, AddressOf Client_Close 
AddHandler AcceptSock.DataArrival, AddressOf 
ServerDataArrival 
txtRecv.AppendText (" حخlچجiq‎ Jليمعلا <<=د تم اتصال‎ 
AcceptSock.RemoteEP.Address.ToString() & vbCrLf 
l1bStatusConn.Text = "jùîJ| Jصتم‎ " 


ENO BU 


¿ الإتصال بالعميل ۳11٥1٤‏ وقي حالة انه تم إتصال العميل 


بنجاح على نفس عنوان الآيي شاشة ال۷ € ۸)>) الخاصة بالواحهة 


.. ) تم إتصال العميل بنجاح‎ == e 


القيام بالإتصال ( إتصال جديد ) . ( 


AcceptSock = Nev 1] ° (Me, Request) 


بداية الإتصال» ويشترط للقيام بالإتصال أن يكون الإتصال مغلقاً في ي 


4 


AcceptSoc N Sade SS TELE 


يشترط أن الذي يقوم ببداية عملية الإتصال هو المسؤول وأن يكون لیل غر مت ی۸ تکاله 


AddHandler AcceptSock.Closed, AddressOf Client_ Close 
لكي يظهر في ط۲1 ٤5ء٠٤٤5 الشريط الذي أسفل الواجهة الأساسية للمسئول أنه متصل الآن في‎ 
. حالة إذا تم إتصاله بنجاح على عنوان الآيبي‎ 


1bStatusConn. Text = "jùîJ| Jلصتم‎ " 
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الرسائل أرسال وأستقبال الرسائل بين المسؤول والعميل . 


Public Sub AddChatMessage (ByVal msg As String, ByVal meTalking As 1] 


If meTalking Then 


msg = ":Jلوaۋسملا‎ " + msg 


Else 


MSG. SS Tal Y # MSO 


- 
0 


"y1" Then ¢‏ 
ae‏ السلاع س e‏ اله وکو عا ن 1 


£ txtSend.Text = "y1" Then ۹) 0 


0 
"..[[ السلام عليكم ورحمة لله e‏ + " المسؤول:" = msg‏ 


Recv Text 1e) > txtRecv.MaxLlLength * 0.95 Then 
RECV. Text LXÜRECV. Text .Remove (0, 
LxLReCv. ength / 2)) 


٩ 


Cv.Text += msg + ControlChars.Cr + ControlChars.Lf 
ecv.SelectionStart = txtRecv.Text.Length 
ecv.ScrollToCaret () 


Eo) This PDF was created using the Sonic PDF Creator. 


To remove this watermark, please license this product at www.investintech.com 


الشرج 


توج 


هذا الكود حاص بإرسال و إستقبال الرسائل بين المسئول والعميل » وإضافة الاحتصارات مثل 


( س۱ = السلام عليكم ورحة الله وبركاته » س۲ = وعليكم السلام ورحة الله وبركاته ) وأيضاً 


إعبار أن إلبيانات التي تكتب بداخحل التكست الخاص بالإرسال على أا رسالة تظهر عند 


المسؤول سې 


0 
2 
۵ 


5 
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الكود الخاص ببوتون الإتصال Start cO011ec)101‏ . 


Private Sub Button2_Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button2.Click 


f MySock.State = BazSocke Disconnected Then 
MySock.Listen (1007) 


المسؤول بنجاح على اalعiنوlنj"‏ ( txtRecv.AppendText‏ 


lbStatusConn. Text = " عclniwاl‎ ةلll> في‎ " 


£, CheckBox1.Checked Then ۵ 


NP.NAT.Discover () 


LRecv.AppendText (UPNP.NAT.GetExternalIP.To A & vbNewLine) 


NP.NAT.ForwardPort (1007, System.Net. So ES 1 PEOLOCOLTVPE. TED, TEREE") 


ا ا4 Else‏ 


vbNewline)‏ & ل ا ي 


a a 8 
Button2.Enabled = False 0 


۵ 


0 


Eo) This PDF was created using the Sonic PDF Creator. 
To remove this watermark, please license this product at www.investintech.com 


الشرجح 


توه 


يتم الضغط على بوتون الإتصال الموحود في الواحهة الرئيسية للمسؤول بعد الضغط على ال 

×0 K8ءعط‏ ر فتح المنفذ على الروتر ) عن طريق الإستماع لمنفذ الروتر ( 1007 ) وبعد إتصال 
المسؤول بنجاح يظهر في ال۷٤ K۸‏ الموحود ف الواحهة الرئيسية للمسؤول أنه 

( <<=-تم تشغيل المسؤول بنجاح على العنوان ) . 


If MySock.State = BazSocketState.Disconnected Then 3 


MySock.Listen (1007)‏ 
وو یح تنلا ررد تتجاع غل الغنوgl txtRé6GY.A666)GQTéext("‏ 
وني حالة تم إتصال المسؤو ياج يظهر في الشريط الموحود أسفل الواحهة الرئيسية للمسؤول 
( قي حالة اتصال ). 


lbStatusConn.Text =" عlanتiwl‎ ã 4 
4 


وة عط خت CheckBox Jı‏ ® تچ للنفذ على الروتر ) يتم الضغط على بوتون 


الإتصال . 


If CheckBox1.Checked 


UPNnP.NAT. 


LxLREeECV.A ع‎ KL (UPnP.NAT.GetExternalIP.ToString & 
vbNewlLi ( 


UP o. NATÊ ForwardPort (1007, 
Sys lew Net .Sockets.ProtocolType.Tcp, "EREE™) 


Else 
LxtRecv.AppendText (MySock.LocalEP.Address.ToString & 
vbNewline) 


ENI. EE 


Button2.Enabled = False 


End If 
ETO SU 


Eo) This PDF was created using the Sonic PDF Creator. 


To remove this watermark, please license this product at www.investintech.com 


يستخدم هذا الكود لمعرفة أن العميل قد قام بقطع إتصاله وتظهر رسالة عند المسئول أن (العميا 
غير متصل الآن ) ويظهر في الشريط الموجود أسفل شاشة العميل أنه (غير متصل) ... 


EventArgs) 


ByVal e As System.] 


ByVal sender As Object, 


BazSocket) 


Private Sub Client_Close (i 
CType (sender, 


BazSocket 


Dim sock As 
& vbNewL Ên 


sock.Close () 
Recv.AppendText (" jîJ| لJلصتم "العميل غير‎ 
" 


قن متصل " 


LxtL] 


l1bStatusConn. Text = 


يستخدم هذا الكود ت تکښنت الإرسال لاإصال ماتم كتابته في تکست الإرسال .. 


ا ا4 


ByVal e As 


yVaR| sender As Object, 
nQdlestxtSend. KeyDown 


Down ( 
Ha 


Private Sub txtSend_Keyl 
System.Windows.Forms.KeyEve, rg 
8 e1 o Not ImSupp Then 


e.KeyCode 


7 
SSUEFER) 


AcceptSock. ۸ 
ImSupp = 0 


6 


NJ 


ERO Sub 
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Eo) 


من خلال هذا الكود لا يستطيع كلاً من المسؤول والعميل الضغط على بوتون الإرسال الا إذا تمت الكتابة 
بداخل تكست الخاص بكتابة الرسائل » ولا يمكن الكتابة بداخل تكست الإرسال الا إذا تمت عملية الإتصال 


بين كلاً من العميل والمسئول . 


Private Sub txtSend_TextChanged (ByVal sender As System.Obje 
e As System.EventArgs) Handles txtSend. TextChanged 


Button1.Enabled = txtSend.TextLength > 0 8 . 


If txtSend.TextLength > O0 Then 


If Not ImWriting AndAlso AcceptSock.State = ر‎ ate.Connected Then 


AcceptSock. Send ("SWRITE") ا‎ 
ImWriting = True 


EO: TE 


4 


HIself txtSend.TextLlLength = 0 The 
If ImSupp AndAlso ا‎ BazSocketState.Connected Then 


اد 


ImWriting = False 


ImSupp = False 0 ل‎ 


ھ4 
txtSend.Focus () 0‏ 
End TÊ 3 ۳‏ 
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Private Sub Button3_Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button3.Click 


e.Close () 


الكود الخاص بخيار الخروج من البرنامج أو البوتون XJ‏ 


ERG Sab 


Private Sub Button4_Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button4.Click 


Me.WindowState 


الكود الخاص بخيار تصغير الواجهة الأساسية لل 58۲۷۵۴ و ال ٣٤‏ اح أو البوتون (_)] ا 
= 


الكود الخاص بخيار تأمين ضمن قائمة الخيارات الموجود في الواجهة الأساسية لل 5۵۲۷6٣‏ و ال |18٣‏ للانتقال إلى واجهة التأمين . 


ل 
Private Sub jynl:ToolStripMenuItem_Click (ByVal 0‏ 


System.Object, ByVal e As System.EventArgs) Ha 
èùynaİiةToolStripMenuItem.Click‎ 


Me. Hide () 


Form2. Show () 


ERG: Sub 


الكود الخاص ببوتون 8 اموجود في الواجهة الأساسية لل 5۲۷۵١‏ و ال ٣8ا٣‏ . للإنتقال إلى شاشة إعداد تغيير 


شكل ولون الخط بداخل ال ]×)R۸ ٤٥7۷‏ . 


PFivatê SU NY c11 ewa sender As System.Object, ByVal e As 
System. Ev, gs) Handles Button6.Click 
FoftD; oes = TEU 


Fon Falog1.ShowDialog () 


With txtRecv 
.Font = FontDialog1.Font 
.ForeColor = FontDialog1.Color 


End With 
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الكود الخاص بواجهة التأمين للمسئول 5٥۲۷٠۲‏ و للعميل ءا . 
FADLILG CLSSS FOEM2A‏ 


Private Sub textbox1_KeyPress (ByVal sender As Object, 
System.Windows.Forms.KeyPressi 


If Asc (e.KeyChar) 


ByVal e As 
EventArgs) Handles TextBox1.KeyPress 
= 13 Then 
LEY 
Dim a As Integer 
a = TextBoxl. Text 
LE. a. = YI1LI™ Then 
MsgBox (" ("مرحباً لك ر أ خازی‎ 
TextBox1.Clear () 
e.Hide () 
Form1. Show () 
Else ِ 
Msg¢Êo6x ,"ذرا ¥ يمكتك الدخول")‎ MsgBox e. ik cal, "Group of young creators™) 
TextBox1.Clear () 
ERE TÊ 
Catch ex As Exception 
MsgBox (" ت بشكل صحيح‎ 
TextBox1.Clear () 


e 


الضرج 0 
تحتو ج a‏ 
e‏ 
لتابع له ڊ د 

ت 


1L3. THER 


عندما يدخل المستخدم الرقم السري في خانة الباسورد التكست بوكس | 
الستخدم أن يضغط مره واحد على زر عع مع الموجود في لوحة المفاتيح في الكمبيوتر . ٠‏ 
If Asc(e.KeyChar) =‏ 
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الكود الخاص ببوتون ۰ 


Private Sub Button1l_Click_1 (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button1.Click 


TEY 


Dim a As Integer 
a = TextBoxl.Text 


IF a = "111" Then 
MsgBox (" ("فرخيا بلك مر أخرى‎ 


TextBox1.Clear () 
Me.Hide () o 
Forml. Show () 


Else ِ 
MsgBox ("Jgخدl| لا يمكنك‎ ارذءe",‎ MsgBoxStyle. Critical, "Gr (9 Younes EESAEOEST™) 
TextBox1.Clear () U 
ERQ. LÊ 


TextBox1.Clear () 
ENG TEY 


Catch ex As Exception ¢ 
Ms980× )" البيانات بشكل صحيح‎ a 


ENG Sb 
End Class ۸ 2 


N 
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أضانة yb‏ . خcceptReques‏ للمشروع . 


Accept Request . vb‏ :- هى عبارة عن 7 . C1855‏ ( کلاس  )‏ یتم أستدعائها 


كما هو موضح قي الصور التالية » وقد استخدمنها في المسئول۲ 5٥۲۷6‏ و العميل ٤ا‏ . 


( صوره ۱) 


File Edit View Project Build Debug Data Tools Test Window Help 
BERA A» | A < = | ا س چ اج س © ص‎ 2 5 | E ME E1 
ا‎ 


Form1.wb File Properties 


JE 


Copy to Outpu Do nat copy 
Custom Tool 

Custom Tool h 

File Name  Farmiwb 
Full Path CN Users\malikiDes 


[| compile 


Buîld Action 
How the file relates to the build and 
deployment processes. 


File Edît View Project Build Debug Data Tools Test Window Help 

ت اا اک ۔ ا ل ہد | 2ے | چ اک ھت ا اھ را چ د لھ: 

3 Properties TR 
٤ 

8E 


Farm1.vb File Properties 


1 Build Action Compile 
Categories: Templates: Copy to Outpu Do not copy 


| Common Items | Visual Studio installed templates Custom Tool 
Code > 2 2 2 IEF Custom Tool N 
Data ا 28 2 3 ا‎ File Name Formi.vb 
General طا‎ 1 Class le COM Class Component Full Path CAUsers\rmalil\ Deg 


Web #6 Diagram Class 
Windows Forms 


Reporting 3 ا‎ 3 3 8 


Workflow Dialog Ebe Interface JScript File 
WPF Form 


LINQ to SQL Login Form MDI Parent Module 
Classes Form 


® a = 


About Box form for Windows Forrns applications 


Name: AboutBod.vb 


Build Action 
How the file relates to the buîld and 
deployment processes. 
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ويحتوي ال طا . Accept Request‏ على الكود التالى .... 


Imports System.Net.SoOckets 
IMPOEES SYStOeM. Net 
Public Class AcceptRequest 
Private m_Socket As Socket 
Private m_Stream As NetworkStream 


m_Socket = sock 
m_ Stream stream 


Friend Sub New (ByVal sock As Socket, ByVal stream As ent rn 


اط 


Ed Sub 


Get 
Return m_Socket 


Friend ReadOnly Property Sock() As Socket ك‎ 


End Get 


ERAQ, PESBEEEY Bb 


Friend ReadOnly Property stres NN NetworkStream 
Get 


Return m_Stream 


ENG GEE ` 
End Property 0 ل‎ 


PUbDLLE Read Ny Property LocalEP () As IPEnNndPoint 
Gê i 


> 
e (m_Socket.LocalEndPoint, IPEndPoint) 
Ê 


FESBEEEY 


Public ReadOnly Property Remotel PEndPoint 
EÊ 


Return CType (m_Socket .RemoteE EndPoint) 


End Get 


End Property 


ERC CLASS 
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AcceptRequest .vb 
O مع ر ا > زل‎ 


fet .vb‏ 5858: وتحتوي على كود يعمل على برمجة أداة السوكت )ع8 داخل 
لغة b.ne٤‏ شيعه رة عن ط۷ . C1355‏ ( كلاس ) يتم استدعائه كما تم ايضاحة في الصور 
ل 


0 
0 
۵ 


السابقه ... ا 


Sockets 


System.Net 
System.Net. 


System. ComponentModel 


System. Text 


LMEOEES 
IMBOEES 
1mports 
Imports 


Public Class BazSocket 


" Membres " 


#Region 


"TODO: Metre en property 


Private Const BACKLOG As QO. = 8 


ize Integer 'Taille du buffer pour recevoir 


_Recvau te) As Byte 'Buffer pour recevoir les données 


Lze As Integer 'Taille du buffer pour envoyer 


() "Buffer pour envoyer les données 


Private 
P xi O. As ISynchronizelIlnvoke 'Merci da Xya ;) 


tL As Socket 


m_Stream As NetworkStream 


As BazSocketsState "Etat du socket 


EP As IPEndPoint 
__RemoteEP As IPEnNndPoint 
m_RemotePort AS Integer 


__Init As Boolea "Est-ce que le socket est 


"Voir Property AsyncEvent 
Private m_Async 


Event As Boolean 
"Voir Property AlwaysRaiseClose 
Private m_Alway 


sRaiseClose As Boolean 


Private AcceptSync As Object '} 
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Private m_RecvS 
les données 
Private m 


Private m_ 
les données 


m_Socke 


_ State 


_ LoOCal 


Private m 


LALELAaLLSê OU Bas ? 
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Private SendSync As Object '} Object servant pour le SyncLock 
dês. EiEeads 

Private RecvSync As Object 7 
End Region 


Region " Constructeürf " 

'Constructeur par default 

Public Sub New () 
Me.New (Nothing) 

EN, Sub 

'CORSEFUCEEUE 

Public Sub New (ByRef Sync As ISynchronizelnvoke) 
M_SYNCE = SyNC 
InitInvoke () 


m_AsyncEvent = True 


"Valeur par default 
m_AlwaysRaiseClose = Fals 0 
۰ 


AcceptSync = New Object 
SendSync = New Object 

RecvSync New Object 3 
CreateSocket () ۹ 


InitBuffers () 


OnStateChanged (BazSocketState. connected) 
End Sub 


"Creation du socket pour acc une nouvelle connection 
Public Sub New (ByRef Sync ynchronizelInvoke, ByRef Request As 
AcceptRequest) 
5 


If Request. Sock #4 s Ao ng OrElse Request.Sock.Connected = 
False OrElse Request.Stkgam Nothing Then 
m_Init = Fale 
Return 
ERG. EE 


m_Sync „4 & 


NN () 
ysRais Close = Fals 
0 ncEvent = True 


_ Socket = Request. Sock 

m_Stream Request.Stream 

m_State = BazSocketState.Connected 
InitBuffers () 


AcceptSync = New Object 

SendSync = New Object 

RecvSync = New Object 

m_Init = True 

OnStateChanged (BazSocketState.Connected) 

'On commence a recevoir les données qui pourraient arriver. 


m_Stream. BeginRead (m_RecvBuffer, 0, m_RecvSize, New 
AsyncCallback (AddressOf Receive_CallBack), m_Socket) 
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ERG. Sub 
End Region 


Region " Events " 

Public Event StateChanged As StateChangedEventHandler 
Public Event Connected As EventHandler 
Public Event ConnectionFailed As ErrorEventHandler 
Public Event Listening As EventHandler 
Public Event ListenFailed As ErrorEventHandler 
Public Event Accepted As AcceptedEventHandler 
Public Event AcceptFailed As ErrorEventHandler 
Public Event DataArrival As DataArrivalEventHandler 
Public Event SendProgress As SendProgressEventHandl 
Public Event SendComplete As SendCompleteEventHand] 
Public Event Closed As EventHandler 

Public Event ThreadException As ErrorEventHandler 
End Region 


"Merci da Xya pour son aide qui ma permit de régle problème de 


HEGIOR. " == CrO55-THFEading == 
Cross=ThEeading 1! K 


'Délégués pour appeler les sub grace a m_S Qtoxe 
Private Delegate Sub _StateChanged (ByVal a As BazSocketState) 
Private Delegate Sub _Connected () 

(2 ex As 


Private Delegate Sub _ConnectionFailed ( 
Private Delegate Sub _Listening () 3 


Exception) 


Val ex As Exception) 
Ouest As AcceptRequest) 
a 


Private Delegate Sub _ListenFailed 


Private Delegate Sub _Accepted ( a1 
Private Delegate Sub ea dB 1l ex As Exception) 


Private Delegate Sub _DataArffi gl (ByVal data () As Byte) 
Private Delegate Sub 0 ess (ByVal current As Integer, 


ByVal total AS Intéger) 
Private Delegate ا‎ npComplete (ByVal total As Integer) 


Private Delegate Suğ,_ClĞse() 
Private Delegate Su _ThqêtadException (ByVal ex As Exception) 


'lLes Délégués 
Private Call teChanged As _StateChanged 


Private Cal ected As _Connected 
Private NY hnectionFailed As _ConnectionFailed 
a 


EEL VATE LiStening As _Listening 
Eya l1llListenFailed As _LlListenFailed 


8 e™CallAccepted As _Accepted 
ر‎ ake CallAcceptFailed As _AcceptFailed 


APriate CallDataArrival As _DataArrival 
fvate CallSendProgress As _SendProgress 

Private CallSendComplete As _SendComplete 

Private CallClose As _Close 

Private CallThreadException As _ThreadException 


Private Sub InitInvoke () 

CallStateChanged = New _StateChanged (AddressOf 
nc_StateChanged) 
CallConnected = New _Connected (AddressOf Sync_Connected) 
CallConnectionFailed = New _ConnectionFailed (AddressOf 
nc_ConnectionFailed) 
Ca istening = New _Listening (AddressOf Sync_Listening) 
Ca „istenFailed = New _ListenFailed(AddressOf 
NC_ListenFailed) 

CallAccepted = New _Accepted (AddressOf Sync_Accepted) 
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CallAcceptFailed = New _AcceptFailed(AddressOf 
NnC_AcceptFailed) 
CallDataArrival = New _DataArrival (AddressOf 
nc_DataArrival) 
CallSendProgress New _SendProgress (AddressOf 
NC_SendProgress) 

CallSendComplete New _SendComplete (AddressOf 
NnCc_SendComplete) 
CallClose = New _Close (AddressOf Sync_Closed) 

CallThreadException = New _ThreadException (AddressOf 
nc_ThreadException) 
ERA Sb 


"Sert a regarder si on a besoin d'apeller 1'Event depuis un autre 
thiFéad.: 
Private Function InvokeRequired() As Boolean 
If m_Sync IsNot Nothing AndAlso m_Sync.InvokeRequi 
REYE TELE 
Else 


Return False 


EN LE 1 
ERG FURCELoN 0 


'"Evenements appelé par les threads. 
Private Sub OnStateChanged (ByVal state ن‎ zSocketState) 


E 


Then 
Then 


If InvokeRequired () 
If m_AsyncEvent 


m_Sync.BeginInvoke (CallSta C ed, New Object () {state}) 


Else 
nayne, Invoke (ca11stat a yryea, New Object () {state}) 
EHC LEÊ 


Else 
Sync_Statedkandcéed (state) 
ENG IÊ 

Catch ex As Excéeğtio 
OnThreadE ption (ex) 

End TEy 


End Sub 0 
Private Su (Cbnnected () 


TrY A 


Then 


NnvVOkeRequired () 
1 If m_AsyncEvent Then 
% m_Sync.BeginInvoke (CallConnected, Nothing) 


Else 


m_Sync.Invoke (CallConnected, Nothing) 
ENG LÊ 
Else 
Sync_Connected () 
ER. LE 
Catch ex As Exception 
OnThreadException (ex) 
End TEY 
ERG. Sub 
Private Sub OnConnectionFailed (ByVal ex As Exception) 
LEE 


ب 


If InvokeRequired() Then 
If m_AsyncEvent Then 
m_Sync.BeginInvoke (CallConnectionFailed, New Object () {ex}) 
Else 
m_Sync. Invoke (CallConnectionFailed, New Object () {ex}) 
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ERQ LÊ 


ELS 
Sync_ConnectionFailed (ex) 
End TE 
Catch exp As Exception 
OnThreadException (exp) 
End TEY 
End Sub 
Private Sub OnLlListening () 
TEY 


2 


If InvokeRequired() Then 
If m_AsyncEvent Then 
m_Sync.BeginInvoke (CallListening, Nothing) 


Else 


m_Sync.Invoke (CallListening, Nothing) 


ERG LÊ 
Else % 


Sync_Listeni 
ERG JE x0 
Catch ex As Exceptio 


OnThreadExceptio 


End TEY ۹ 
1 E. 


End Sub 
Private Sub OnListenFailed (ByVal ex As 
LEY 


2 


If InvokeRequired() Then 


If m_AsyncEvent Then 
n_syne.Begininvoke (Caister a1) New Object () {ex}) 
Else 0 
M_SYIEs TAVOKE(COLILLSEENEA 1 1 ew Object () {ex}) 


ERQ: LÎ 


Else 


wv 


Sync_ListenE 
BBC. TLE ib 
Catch exp As ] pti 

OnThreadl e 
End TEy 
ENQA SU 
Private Sub ccepted (ByVal Request As AcceptRequest) 

Try 4 

keRequired() Then 

o m_AsyncEvent Then 
xO eginInvoke (CallAccepted, New Object () {Request}) 


Else 
ync. Invoke (CallAccepted, New Object () {Request}) 
ENQd LEÊ 


Else 

Sync_Accepted (Request) 

ERE TLE 

Catch ex As Exception 
OnThreadException (ex) 

End TEY 

End Sub 

Private Sub OnAcceptFailed (ByVal ex As Exception) 
TEY 


2 


If InvokeRequired() Then 
If m_AsyncEvent Then 
m_Sync.BeginInvoke (CallAcceptFailed, New Object () {ex}) 
Else 
m_Sync.BeginInvoke (CallAcceptFailed, New Object () {ex}) 
El TE 
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ElLsê 

Sync_AcceptFailed (ex) 

ERG TE 

Catch exp As Exception 
OnThreadException (exp) 

ERG TEY 

End Sub 

Private Sub OnDataArrival (ByVal data() As Byte) 
LE 


If InvokeRequired() Then 

If m_AsyncEvent Then 

m_Sync.BeginInvoke (CallDataArrival, New Object () {data}) 

Else 

m_Sync. Invoke (CallDataArrival, New Object () {data}) 
EN TÊ 

Else 


2 


Sync_DataArrival (data) 

ERQ. TE 

Catch ex As Exception 
OnThreadException (ex) 

ERG TEY 

End Sb 

Private Sub OnSendProgress (ByVal current ByVal total 


As Integer) 
TEY 


rm 


If InvokeRequired() Then 


If m_AsyncEvent Then 
m_Sync.BeginIvoke (CallSendProgress, wu. Object () {current, total}) 
Elsê ۴ 


m_Sync. Invoke e 


{current, total}) 


ENE LE 


Else و‎ 
Sync_SendPro Os total) 


ERG TÊ 

Catch ex As 
OnThreadE 

End TEy 

ENQA SU 

Private Sub 0 ndComplete (ByVal total As Integer) 


0 
VokeRequired() Then 
f m_AsyncEvent Then 


m_Sync. ihvoke (Ca11sendconplete, New Object () {total}) 
۹ 


sê 
4 nvoke ( E New Object () {total}) 
ENQ. LÊ 


Else 

Sync_SendComplete (total) 

ERC TE 

Catch ex As Exception 
OnThreadException (ex) 

End TEY 

End Sub 

Private Sub OnClosed() 
TEY 


2 


If InvokeRequired() Then 

If m_AsyncEvent Then 

m_Sync.BeginInvoke (CallClose, Nothing) 
ELSë 


ê 


m_Sync.Invoke (CallClose, Nothing) 
ER TE 


Eo) This PDF was created using the Sonic PDF Creator. 


To remove this watermark, please license this product at www.investintech.com 


Exception) 


{ex}) 


5 
o 


(= State) 


) 


Eo) {EX}) 


Exception) 


Cy) 


ception) 


ted (ByVal Request As AcceptRequest) 
Request) 


Exception) 


Byte) 


BYVAL 


al) 


Private Sub Sync_SendComplete (ByVal total As Integer) 
Event SendComplete (Me, 


Exception) 


New Object () 


Exception, 


New Obj 


Exception (ex) 


Hmxception (ByVal ex As 


Thread 


Exception, 


Sync_Closed() 


Exception 
Exception (ex) 


Then 
Then 


Hvent 


nNnc_StateChanged (ByVal state As 


state) 


e GT 


ex As 


a 


Û 


8 


الد 


MP 


Ex 
ex) 


ex) 


ByVal data() As 


data) 


GUEEENE;, EOE 


total) 


Empty) 


mxception (ByVal ex As 
Exception (Me, 


ex) 


EventArgs. 


StateChanged (Me, 


nc_Connected () 
Connected (Me, 


Private Sub OnThread 
If InvokeRequired () 

IF m_Asyncıl 
m_Sync.BeginInvoke (Cal1l1 


. Invoke (CallThread 


Else 


EHO TE 


Catch ex As 
OnThread 


ERN TEY 
End Sub 


Else 
m_Sync 


Hs Ra 
Else 


Sync_Thread 


ENO EE 
ERG. Sub 


8 

Privaté SUb Sy 
RaiseEvent 
End Sub 
Private Sub Sy 
RaiseEvent 
ENG Sub 


nc_ConnectionFailed ( 
Event ConnectionFailed 4 


as .E 
1 d(ByVal ex As 


e, 


Listening () 
,istening ( 


lil 
iS 


1 get e 
F 
e 
tL 


alli Lé 
ai led ( 
NC 


Ac d (Me, 


_AcceptFailed (ByVal ex As 
e, 


Qes DataArrival (Me, 


AcceptFailed ( 


nc_DataArrival ( 


Event SendProgress (Me, 


Private Sub Sync_Closed() 


Closed (Me, 


Threadl 


Mm 
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Private Sub Sync_ 


Private Sub Sync_l 


Private Sub Sync_Thread 


Private Sub Sy 
Rai sel 
ERG. Sub 
Rai sel 
Sub 


Event 


End 


Raise! 
Ed. SU 
Private Sub Sy 
RaiseEvent 
ENG Sub 
Private SUR 

Rais ANN 
End Su ي‎ 
Priva 

a 


Event 


b Sy 


En b 


ri ate Sub Sync_SendProgress (ByVal current As Integer, 


sS Integer) 
Rai sel 
EI SAB 
Rai sel 
End Sub 
Rai sel 
Sub 


Hvent 
End 


Rai sel 
ENG Sb 


EVERE 


End Region 


Region " Proprietés 


Eo) 


"Fonction appeler dans le thread m_Sync qui vont de 


Even 


tEOta 


Public ReadOnly Property Initialised() As Boolean 
Gê 
Return m_Init 

End Get 


r 
U 


End Property 


"Eta dû: SOGKet 


Public ReadOnly Property State() As BazSocketState 
GEE 
Return m State 

End Get 

ENQA PEOBDEEEY 


Public Property LocalEP () As IPEnNndPoint 
Get 


If m_State <> BazSocketState.Disconnected Then 
Return CType (m_Socket.LocalEndPoint, IPI 
Else 
Return m_LocalEP 
EN, LÊ 
End Get 
Set (ByVal Value As IPEnNndPoint) 
If m_State = BazSocketState.Disconne 
m_LocalEP = Value 
ER TLE 
End Set 
Ena PEOperty 
Public Property Remote 
Get 


If m_State = BazSocket§t{\te.Connected OrElse m_State = 
BazSocketState.Connecting Then &@ 


0 
Return CType E .RemoteEndPoint, IPEnNndPoint) 


Else 
Return 
ENG TÊ 
End Get 
Set (ByVal (9 PEndPoint) 
LE 09 o Then 
moteEP = Valu 


End 
End Sgt ۹ 


End FU N 
L'evenement Close est déclenché quand vous appelez 
DiS Co 
"8 


(i ase, L'evenement Close est déclenché uniquement quand la 
ا‎ Lon est EE a distance. Comme Winsock de VB6 (Defaut) 
Public Property AlwaysRaiseClose() As Boolean 
Get 


Return m_AlwaysRaiseClose 
End Get 
Set (ByVal value As Boolean) 
m_AlwaysRaiseClose = valu 
End Set 
ENG PFODEFEY 


'Si True, Les Evenements sont lancés chaque fois qu'il ce 
produise. Comme Winsock de VB6 (Defaut) 

'Si False, Les Evenements sont mit en attente s'il y en a deja un 
qui est entrin de s'executer. Ca permet de traiter les données dans 
1'ordre ou elle arrive. 
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'"Permet de regler la taille des buffers d'envoi t de reception. 


Public Property AsyncEvent () As Boolean 
Get 
Return mM_AsynNCEvYVeNt 
End Get 
Set (ByVal value As Boolean) 
m_AsyncEvent = value 
ERNd Se 
End PEOpBEerFEY 


Public Property SendBufferSize() As Integer 
Get 
Return m_SendSize 
End Get 
Sét (ByVal valuê Aš Integer) 
If m_Init AndAlso m_sState = BazSocketState.DisconnectedêIrhen 
m_SendSize = valu ۰ 
m_Socket.SendBufferSize = m_SendSiz 


ReDim m_SendBuffer (m_SendSiz 3) 0 
End If XK 


End Set 


ف 


ERQ PEOBpEEFEY 


Public Property ReceiveBufferSize() As 0 
GE 


Return m_RecvSize 
End Get 
Set (ByVal value As Integer) 
If m_Init AndAlso m_State = BazSoc State.Disconnected Then 


m_RecvSize = valu . 
m_Socket.ReceiveB ri = m_RecvSiz 


ReDim m_RecvBuff 


ERG TE 
End Set 
End 


E FEGPEEEY ( 
¥ 


ecvSize = 1) 


ن 


"Merci da Xya ;) و‎ 


"Pour le Cross-T a 
Public Property S§ onizingObject () As ISynchronizelIlnvoke 


Get 


Ret syne 
End Geth, 


Se value As ISynchronizelnvoke) 
Sync = value 
él 


2 GPOEEEY 
End Region 


#Region " Public Methodes " 
Public Sub Connect (ByVal RemoteHost As String, ByVal RemotePort 
As Integer) 
If m_State = BazSocketState.Disconnected AndAlso m_Socket 
IsNot Nothing Then 
LEY 


C'est mieu d'utilisé BeginGetHostEntry () pour ne 
pas bloqué le thread en cours 
m_RemotePort = RemotePort 'TODO: ca serai plus beau 
de passer ca dans l'objet state de GetHostEntry_CallBack 
m_State = BazSocketState.Resolving 
OnStateChanged (BazSocketState.Resolving) 
Dns.BeginGetHostEntry (RemoteHost, New 
AsyncCallback (AddressOf GetHostEntry_CallBack), m_Socket) 
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Catch ex As Exception 
m_State = BazSocketState.Disconnected 
OnStateChanged (BazSocketState.Disconnected) 
OnConnectionFailed (ex) 

ENG TEY 

ENG LE 

ERG Sub 

Public Süb Connéct () 

e.Connect (m_LocalEP, m_RemoteEP) 


End SubPublic Sub Connect (ByVal LocalEP As IPEndPoint, ByVal 
RemoteEP As IPEndPoint) 
If m State = BazSocketState.Disconnected AndAlso m_Init 
AndAlso m_RemoteEP IsNot Nothing Then 
LEY 


m_State = BazSocketState.Connecting 
OnStateChanged (BazSocketState.Conn کک‎ 


TÊ M_LOCALEP TSNSE Nothing: Then 0 
m_Socket.Bind (m_LocalEP) X 


End If ل‎ 


m_Socket.BeginConnect (m_Remote (ys 
AsyncCallback (AddressOf Connect_CallBack), m e ) 
Catch ex As Exception 
m_State = BazSocketState.Diğgcgnnected 
OnStateChanged (BazSockel6tat€e.Disconnected) 
OnConnectionFailed (ex) 
ENG TEY 
End If 
End Sub ۹ ۷ 


Public Sub Disconnect () 0 
If m_State <> BazSgekeltState.Disconnected Then 


If m_AlwaysRêaiseglose Then 
Disc ctSocket (True) 


connectSocket (False) 


ERE Û 
۷ 


BHAA 0 
2 b Close () 


m_State <> BazSocketState.Disconnected AndAlso 
RaiseClose Then 
CloseSocket () 
OnClosed () 


Else 


CloseSocket () 
ERN LÊ 
Sub 


) As Boolean 


LIE FUREELOoO LiStenR 
HP) 


Me.Listen (m_Locali 
FURCELON 
lic Sub Listen (ByVal LocalIP As String, ByVal LocalPort As 


m_LocalEP = DefaultLocalEP (LocallP, LocalPort) 
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Catch ex As Exception 
OnListenFailed (ex) 
REET 

ENG TEY 


e.Listen (m_LocalEP) 
ENG Sub 
Public Sub Listen (ByVal LocalPort As Integer) 
LEY 
m_lLocalEP = DefaultLlLocalEP (LocalPort) 
Catch ex As Exception 
OnListenFailed (ex) 
Return 
ERAQ TEY 


Me.Listen (m_LocalEP) ۰ 
ERG. Sb 


Public Sub Listen (ByVal LocalEP As IPEndPoint) Q0 
If m State = BazSocketState.Disconnected an __Init Then 
TEY 


m_Socket.Bind (LocalEP) 0 9 


m_Socket.Listen (BACKLOG) 


m_Socket.BeginAccept (New xepse AE Accept_CallBack), 


m_Socket) 0 
m_State = BazSocket 2 Os ning 
OnStateChanged (Baz§c§&kêtState.Listening) 


OnLlListening () A WV 


Catch ex As Except n 
m_State = Ba etState.Disconnected 


OnState@harîge azSocketState.Disconnected) 
OnListehFail (ex) 


ERG TEY 8 


ENG. EE ل‎ 


End Sub Na 


PuUDLLE 8 O (ByVal data() As Byte) 
($ s Nothing Then Return 


8 a.Length = 0 Then Return 


(4 m_State = BazSocketState.Connected Then 
(i m_Stream.BeginWrite (data, 0, data.Length, New 

E TT Send_CallBack), m_Socket) 

ENG EE 

ERC. SUB 


'"Prend en parametre une string pour facilité les choses. 

Publi Sub Send (ByYVêl data AS SEI) 

If m_State = BazSocketState.Connected Then 
Dim ByteData() As Byte = Encoding.Unicode.GetBytes (data) 
Me.Send (ByteData) 

Ed LEÊ 

ENQA Sub 

End Region 


Region " CallBack Methode " 
Private Sub GetHostEntry_CallBack (ByVal Ar As IAsyncResult) 


42 


Eo) This PDF was created using the Sonic PDF Creator. 
To remove this watermark, please license this product at www.investintech.com 


Dim AsyncSocket As Socket = CType (Ar.AsyncState, Socket) 


'Regarde si le socket Existe encore, Sinon on quite 

If Not Object.ReferenceEquals (AsyncSocket, m_Socket) Then 
Return 

ENG LE 


Ey 
Dim HostEntry As IPHostEntry = Dns.EndGetHostEntry (Ar) 
'On boucle sur la liste des address retourné pour en 
trouver une en IPV4 car la ler de la liste est une IPV6 sous Vista ;) 
For Each Ip As IPAddress In HostEntry.AddressList 
If Ip.AddressFamily = AddressFamily.InterNetwork Then 
m_RemoteEP = New IPEnNndQPoint (Ip, m_RemotePort) 
m_State = BazSocketState.Disconnected 
Me.Connect (m_LocalEP, m_RemoteEP) 


@ 
Return ® 
ENG EÊ % ب‎ 
Next 0 


'" 51 ON AFEIVE LCL; CES GU"IL OY a aa IPV4 
BOUF “CEE. BOSE 
m_State = BazSocketState.Disconnec 2 
OnStateChanged (BazSocketState. ted) 
OnConnectionFailed (New 
SocketException (SocketError.HostNotFound) ) 


Catch ex As Exception 


m_State BazSocketStat . 
OnStateChanged (BazSocket ا‎ 


OnConnectionFailed (e 


0 


End Sub ( 


Private Sub Conn e Ar As IAsyncResult) 
Dim AsyncSock Socket = CType (Ar.AsyncState, Socket) 


4۹ 
'Regar i, le socket Existe encore, Sinon on quite 
TÊ No 2 اا ا ا‎ m_Socket) Then 


m_Socket.EndConnect (Ar)‏ اد 
IF Not m_Socket.Connected Then‏ 


Throw New Exception () 
EBC LE 


'Normalement ici on est connecter. 

m_Stream = New NetworkStream (m_Socket) 'Crée notre stream 
m_State = BazSocketState.Connected 

OnStateChanged (BazSocketState.Connected) 

OnConnected () 


m_Stream. BeginRead (m_RecvBuffer, 0, m_RecvSize, New 
AsyncCallback (AddressOf Receive_CallBack), m_Socket) 
Catch ex As Exception 
m_State = BazSocketState.Disconnected 
OnStateChanged (BazSocketState.Disconnected) 
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OnConnectionFailed (ex) 
Return 

End TEy 

ats elo 


Private Sub Accept_CallBack (ByVal Ar As IAsyncResult) 
Dim AsyncSocket As Socket = CType (Ar.AsyncState, Socket) 
Dim NewSocket As Socket, NewStream As NetworkStream 


SyncLock AcceptSync 
'Regarde si le socket Existe encore, Sinon on quite 
If Not Object.ReferenceEquals (AsyncSocket, m_Socket) Then 
REEUER 

ERG TÊ 


. 


NewSocket = m_Socket.EndAccept (Ar) xO 


IF Not NewSocket.Connected Then 
NewSocket.Close () 


NewSocket = Nothing 
Throw New Exception () ر0‎ 


EBC LEÊ 


SEEFeaMm 


NewStream = New e rotetreg pesos 'Crée notre 


OnAccepted (New accept t (NewSocket, NewStream) ) 
ب‎ 


m_Socket .BeginAccept yncCallback (AddressOf 
Accept_CallBack), m_Socket) A WN 
Catch ex As Except 

m_ State = Ba etState.Disconnected 
OnState@harîge azSocketState.Disconnected) 
OnAcceptF' ail (ex) 
Return 
ERG: TEY 

End. SYHELOGK 
ERG Sub 


4 
Private Sab ive_CallBack (ByVal Ar As IAsyncResult) 


Di E cket As Socket = CType (Ar.AsyncState, Socket) 
Dg cvSize As Integer 
Noa RecvSync 
'Regarde si le socket Existe encore, Sinon on quite 
If Not Object.ReferenceEquals (AsyncSocket, m_Socket) Then 


Return 
ENG. LÊ 


Ly 
RecvSize = m_Stream.EndRead (Ar) 
If RecvSize <> 0 Then 
Dim ByteData (RecvSize - 1) As Byte 
Array.Copy (m_RecvBuffer, ByteData, RecvSize) 


OnDataArrival (ByteData) 


If m__Stream.CanRead Then 


44 


Eo) This PDF was created using the Sonic PDF Creator. 


To remove this watermark, please license this product at www.investintech.com 


m_Stream. BeginRead (m_RecvBuffer, 0, 
AsyncCallback (AddressOf Receive_CallBack), m_Socket) 


DisconnectSocket (True) 


DisconnectSocket (True) 


DisconnectSocket (True) 


Private Sub Send CallBack (ByVal Ar As IAsyncResult) ê 
= CType (Ar.AsyncState, S ke) 


If Not Object.ReferenceEquals (AsyncS # m_Socket) Then 


(Ar) 


un nouveau 
ByVal RaiseClose As Boolean) 


ed(BazSocketState.Disconnected) 


ruit le Socket completement (Il est ensuite inutilisable) 


Else 


ERG LE 


Else 


ENG TLE 
Catch ex As Exception 


ERQ TEY 
SyYHACLOGK 


m_RecvSize, 


End 
Ed Sub 


Dim AsyncSocket As Socket 


SendSize As Integer 


Lock SendSync 


Return 
ERG. TÊ 


TEY 
m_Stream.EndWrite 


ت 


Catch ex As Exception 


DisconnectSocket (Try 


ERQ, TEY 
SYHELOEK 


nctions prikéges 

le Socket Eb en gfrée 
SUD. DISE ctSocket (1 
eSocket () 


lse Then 
Closed () 


Sub CloseSocket () 


"Di 


"Static CurrentSize As Integer 


SYS 


ERG 
End Sub 
End Region 


Region " Fo 
'"Detruit 
Private 

CIOs 


vate 


If m_Socket Is Nothing Then Return 


If m_Socket.Connected Then 
m_Socket. Shutdown (SocketShutdown. Both) 
If m_Stream IsNot Nothing Then m_Stream.Close () 


FE 


IDLE ThER 


m_Socket.Close () 
m_Socket = Nothing 


'On a fermer le socket il n'est donc plus initialisé ! 


m_Init = False 
LE 


ate = BazSocketState.Disconnected 
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End 
LE 


ERQ 
MSE 
ERQ: SUD 


'Crée un nouveau socket 
Private Sub CreateSocket () 
m_Socket = New Socket (AddressFamily. InterNetwork, 
SocketType.Stream, ProtocolType.Tcp) 
m_State = BazSocketState.Disconnected 


If m_Socket Is Nothing Then 
m_Init = False 
Else 
m_Init = True 
ENG LÊ 
End Sub 
"Initialise les buffers d'envoie et de reception 
Private Sub InitBuffers () 
If m_Socket IsNot Nothing Then 


m_RecvSize = m_Socket.ReceiveBufferSiz 
ReDim m_RecvBuffer (m_RecvSiz 1( % 


m_SendSize = m_Socket. TS x0 
ReDim m_SendBuffer (m_RecvSiz 


EH LÊ 
ENG Sub 


Private Function DefaultLocalEP (ByVal 2 As Integer) As 


IPEnNndQdPoint 
Dim HostEntry As IPHostEntry = 

Dns.GetHostEntry (Dns.GetHostName () ) 
For Each IP As IPAddress In Ho ntry.AddressList 

If IP.AddressFamily = A e mily. InterNetwork Then 


Return New IPEndPognt (FPF LocalPort) 
ERQ. LÊ 
Next 


0 


Private Function pDesayltLlLocalEP (ByVal Locallp As String, ByVal 
Port As Integer) As IRE oint 


Dim 3 y As IPHostEntry = Dns.GetHostEntry (LocallIp) 


REEUED NOEBIRG 
ENG FUNGEIOR 


Fok 1 As IPAddress In HostEntry.AddressList 
.AddressFamily = AddressFamily.InterNetwork Then 
EndPoint (IP, Port) 


Return Nothing 
FHRCELORN 
#FEnd Region 


End. Class 
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C1ass . حالة الأداة سوكت tء)ءSo وهو عبارة عن طا‎ : BazSocketState. vb 


( كلاس ) وتم استدعائه كما وضحنا في الصور السابقة . 


Public Enum BazSocketState 


Disconnected 
Resolving 
Listening 
Connecting 
Connected 


LHIUMm 


حالة الإتصال . 


حالة الإستقبال . K‏ 


حالة الاستماع . 


Disconnected 


Resolving 


Listening 


حالة الإتصال الآن . 4ه 


حالة الإتصال الماضي 


Connected 
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EventHand ler. vb‏ : الحالات » وھو عبارة عن ط7 . 5sئھC1٤‏ ر( کلاس ) وتم استدعائه 


كما وضحنا في الصور السابقة 


Delegate Sub DataArrivalEventHandler (ByVal sender As Object, 


Delegate Sub AcceptedEventHandler (ByVal sender As Object, 


cC 


Delegate Sub ErrorEventHandler (ByVal sender As r 


ف 


EventHandler (ByVal r As Object, 
1 current As Integer, ByVal total As ا‎ 


yVal sender As Object, 


حال وصرل الانات:. 


EventHandler ( 0: ender As Object, 


Delegate Sub StateChangedE 


data() As Byte) 


Request As AcceptRequest) 


Exception) 


Delegate Sub SendProgress 


lic Delegate Sub SendComplete 
1 total As Integer) 


l1l state As BazSocketState) 


Public Delegate Sub 1 EventHandler (ByVal sender As Object, 


حالة الاستقبال . 


e te Sub AcceptedEventHandler (ByVal sender As Object, 


حالة حدوث الأخطاء . 


ByVal data() As 


0 


est As AcceptRequest) 


Public Delegate Sub ErrorEventHandler (ByVal sender As Object, ByVal 


معالج الإرسال . 


EventHandler (ByVal sender As Object, 


total As Integer) 


ex As Exception) 


Public Delegate Sub SendProgress 
ByVal current As Integer, ByVal 
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إكمال الإتصال . 


ByVal sender As Object, 


HventHandler ( 


Public Delegate Sub SendComplete 
ByVal total As Integer) 


اختيار حالة السوكت ]اء ه؟ في اتصال أو استماع . 


ByVal sender As Object, 


0 


K 
0 
¢ 
۵ 


HventHandler (] 


Public Delegate Sub StateChanged 
ByVal state As BazSocketState) 
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Modul!‏ : عبارة عن كود للقيام بعملية بدء الاتصال وقطع الاتصال و إرسال واستقبال 


البيانات بين المسئول والعميل إلى مالا نهاية وقد قمنا باستدعائها كما وضحنا سابقاً في الصور .. 


TmpOrts Systéem.Net.SOcCkKets 
IMpPOEES System. Text 
Module Module1l 
Dim clientsList As New Hashtable 
Sub Main () 
Dim serverSocket As New TcpListener (8888) 
Dim clientSocket As TcpClient 
Dim infiniteCounter As Integer 
Dim counter As Integer 


serverSocket.Start () 
MSG (TCREE. SEEVEE SEES 
counter = 0 ل‎ 


infiniteCounter = 0 0 
For infiniteCounter = 


infiniteCounter 
counter += 1 
clientSocket = serverSock ا‎ TcpClient () 


Dim bytesFrom (10024) As 2 02 
Dim dataFromClient As Ns 
Dim networkStream A Ne Buorkstream 8 
clientSocket.Get {r 

networkStre .ReadêsytesFrom, 0, 

CInt (clientSocket .ReceiyeBuf 


dataFromCliêét = 
SSS .GetString (bytesFrom) 


rSize) ) 


dataFrom nl = 
dataFmgmClient.Substring (0, dataFromClient.IndexOf ("$") ) 
4 


c4iênêsList (dataFromClient) = clientSocket 


broadcast eî romClient + " Joined ", dataFromClient, 


(4 msg (dataFromClient + " Joined chat room ") 

Dim client As New handleClinet‏ و ا 

c1 Ba’ startClient (clientSsocket, dataFromClient, clientsList) 
Next 


clientSocket.Close () 
serverSocket.Stop () 
msg ("exit") 
Console.ReadLine () 
Sb 


msg (ByVal mesg As String) 

mesg. Trim () 

Console.WriteLine(" >> " + mesg) 
End Sb 
Private Sub broadcast (ByVal msg As String, 
ByVal uName As String, ByVal flag As Boolean) 
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Dim Item As DictionaryEntry 

For Each Item In clientslList 

Dim broadcastSocket As TcpClient 
broadcastSocket = CType (Item.Value, TcpClient) 
Dim broadcastStream As NetworkStream = 


broadcastSocket.GetStream () 
Dim broadcastBytes As [Bytel| () 


If flag = TFué Then 
broadcastBytes = Encoding.ASCII.GetBytes (uName + " says : " + msg) 
Else 


broadcastBytes = Encoding.ASCII.GetBytes (msg) 
BERG. TE 


broadcastStream.Write (broadcastBytes, 0, 
broadcastBytes.Length) 
broadcastStream.Flush () 
Next 


ERG Sub XK 


Public Class handleClinet 
Dim clientSocket As TcpClient 0 


Dim CING AS SEEING 
Dim clientsList As Hashtable 


Public Sub startClient (ByVal inClieğtgŞocket As TcpClient, 
ByVal CLinRneNo A5 SEEING, ByVal ist As Hashtable) 
Me.clientSocket = inClien ket 
Me.clNo = clineNo Al 


Me.clientsList = cListag ۷ 
Dim ctThread As Threading. Threaa( N® Threading. Thread (AddressOf 


doChat) 
ctThread.Start () 


End Sub 


Private Sub doCcChgt () 

DIM LENE L unter As Integer 
Dim reque HE. A8 IREEGeSE 
Dim sFrom (10024) As Byte 


Di. FromClient As String 
Dam dBytes As [Bytel () 


iy sefverResponse As String 
1 MM ECOURNE AS SEFIRG 
e 


questCount = 0 
For infiniteCounter = 1 To 2 
infiniteCounter = 1 
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ah 
requestCount = requestCount + 1 
Dim networkStream As NetworkStream = _ 
clientSocket.GetStream () 
networkStream. Read (bytesFrom, 0, 
CInt (clientSocket.ReceiveBufferSize) ) 
dataFrromClient = System.Text.Encoding.ASCII.GetString (bytesFrom) 
dataFromClient = _ 
dataFromClient.Substring (0, dataFromClient.IndexOf ("$") ) 
MSG (TEEOM GCLient = TT + CINO # FT" ¢ ™" # dataEFOMCITeRNE) 
rCount = Convert.ToString (requestCount) 
broadcast (dataFromClient, clNo, True) 
Catch ex As Exception 
MsgBox (ex.ToString) 
ERA TEY 
Next 


e 
K 0 
3 
0 


odule 
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يستخدم هذا الكود للشريط الذي يوجد أسفل الفورم الخاص بالعميل ليبين المراحل التي يمر فيها إثناء 
القيام بعر الاتصال باللآيبي » الشريط الذي يسمى ط۲1ا5ءن 5)3 وهو عبارة عن أداه موجودة 


ضمن ادات a‏ 


Private Sub MySock_StateChanged (ByVal sender As ا‎ state 
As BazSocketState) Handles MySock.StateChanged 9 


Select Case state 3 
Case BazSocketStat .Conn cted 
1bStatusConn. Text "تفل خا‎ 0 


ف 


Button2.Enabled False 

Case BazSocketState.Connectin 

iDSEaAEUSCORR TERE = FT ال3‎ 

Case BazSocketState.Resolvi 
LDSEAEUSTCONR. TEXTE = ات‎ ۳ 

Case BazSocketState.Disc 

lbStatusConn. Text 

Button2.Enable True 

Case BazSocketSkate.Listening 
a قي اة اسنها ۴ كي‎ ۳ 


End Select 0 ۱ 


٣ 


يستخدم هذا الكود عندما يقوم العميل بالإتصال بمنفذ الروتر عند الضغط على بوتون ال çêîleaon‏ 


Private Sub Button2_Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button2.Click 


MySock.Connect (txtIP.Text, 1007) 


ی عم ر للم کعال 
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